home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcppal.arc / WASHDC.CMD < prev   
OS/2 REXX Batch file  |  1987-01-01  |  4KB  |  161 lines
  1.       CLEAR
  2.       LOCATE 1,0
  3.       TRANSMIT "C DIAL"
  4.       TRANSMIT S2
  5.       TRANSMIT "/"
  6.       TRANSMIT S9
  7.       TRANSMIT ","
  8.       TRANSMIT S8
  9.       TRANSMIT "!"
  10.       WAITFOR "="
  11.       TRANSMIT S7
  12.       TRANSMIT "!"
  13.       CLEAR
  14.       RGET S5
  15.       RGET S5
  16.       LOCATE 1,0
  17.       RGET S5
  18.       PAUSE 1
  19.  
  20.       FIND S5 "CONNECT"
  21.  
  22.       IF NOT FOUND
  23.          CLEAR
  24.          LOCATE 1,0
  25.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE MAIN MENU"
  26.          PAUSE 2
  27.          CLEAR
  28.          LOCATE 1,0
  29.          EXECUTE "INTRO.CMD"
  30.       ENDIF
  31.  
  32.  
  33. BEGIN:
  34.    CLEAR
  35.    LOCATE 4,0
  36.    MESSAGE "                         ╔══╡ WASH DC BBS NUMBERS ╞══╗"
  37.    MESSAGE "                         ║                           ║"
  38.    MESSAGE "                         ║  1 - Net Exchange         ║"
  39.    MESSAGE "                         ║  2 - DeathStar            ║"
  40.    MESSAGE "                         ║  3 - Fannie Mae           ║"
  41.    MESSAGE "                         ║  4 - DataBit              ║"
  42.    MESSAGE "                         ║  5 - Arquimedes           ║"
  43.    MESSAGE "                         ║  6 - Life's Like That     ║"
  44.    MESSAGE "                         ║  M - Manual Dial          ║"
  45.    MESSAGE "                         ║  Q - Return to MAIN menu  ║"
  46.    MESSAGE "                         ║                           ║"
  47.    MESSAGE "                         ╠═══════════════════════════╣"
  48.    MESSAGE "                         ║ ENTER THE # OF THE BBS OF ║"
  49.    MESSAGE "                         ║ YOUR CHOICE:              ║"
  50.    MESSAGE "                         ╚═══════════════════════════╝"
  51.  
  52.  
  53.  
  54.    LOCATE 17,40
  55.    MESSAGE  " "
  56.    LOCATE 17,40
  57.    GET S5 1
  58.  
  59.    SWITCH S5
  60.  
  61.       CASE "1"
  62.          ASSIGN S3 "Net Exchange"
  63.          ASSIGN S4 "6893561"
  64.       ENDCASE
  65.  
  66.       CASE "2"
  67.          ASSIGN S3 "DeathStar"
  68.          ASSIGN S4 "8390705"
  69.       ENDCASE
  70.  
  71.       CASE "3"
  72.          ASSIGN S3 "Fannie Mae"
  73.          ASSIGN S4 "5377475"
  74.       ENDCASE
  75.  
  76.       CASE "4"
  77.          ASSIGN S3 "DataBit"
  78.          ASSIGN S4 "3709832"
  79.       ENDCASE
  80.  
  81.       CASE "5"
  82.          ASSIGN S3 "Arquimedes"
  83.          ASSIGN S4 "6988230"
  84.       ENDCASE
  85.  
  86.       CASE "6"
  87.          ASSIGN S3 "Life's Like That"
  88.          ASSIGN S4 "5605616"
  89.       ENDCASE
  90.  
  91.       CASE "M"
  92.          CLEAR
  93.          LOCATE 5,20
  94.          MESSAGE "NUMBER TO DIAL:"
  95.          LOCATE 5,36
  96.          ASSIGN S3 "MANUAL DIAL"
  97.          GET S4
  98.       ENDCASE
  99.  
  100.       CASE "Q"
  101.          CLEAR
  102.          TRANSMIT "!@!"
  103.          WAITFOR "@"
  104.          TRANSMIT "D!"
  105.          WAITFOR "@"
  106.          CLEAR
  107.          LOCATE 1,0
  108.          PAUSE 1
  109.          EXECUTE "INTRO.CMD"
  110.       ENDCASE
  111.  
  112.       DEFAULT
  113.          MESSAGE "^G"
  114.          LOCATE 17,40
  115.          GOTO BEGIN
  116.       ENDCASE
  117.  
  118. ENDSWITCH
  119.       CLEAR
  120.       LOCATE 1,0
  121.       MESSAGE "CONNECTED TO PCP"
  122.       MESSAGE S1
  123.       MESSAGE "DIALING"
  124.       MESSAGE S3
  125.  
  126.  
  127.       TRANSMIT "ATZ!"
  128.       WAITFOR "OK" 10
  129.       TRANSMIT "ATDT"
  130.       TRANSMIT S4
  131.       TRANSMIT "!"
  132.       RGET S0
  133.       RGET S0 80 40
  134.       RGET S0
  135.       PAUSE 2
  136.  
  137.       FIND S0 "BUSY"
  138.       IF FOUND
  139.          CLEAR
  140.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE CITY MENU"
  141.          PAUSE 2
  142.          CLEAR
  143.          LOCATE 1,0
  144.          GOTO BEGIN
  145.       ENDIF
  146.  
  147.       FIND S0 "CONNECT"
  148.       IF FOUND
  149.          SET PARITY NONE
  150.          SET DATABITS 8
  151.       ELSE
  152.          CLEAR
  153.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE CITY MENU"
  154.          PAUSE 2
  155.          CLEAR
  156.          LOCATE 1,0
  157.          GOTO BEGIN
  158.       ENDIF
  159.  
  160.       ALARM 1
  161.       EXIT